-- card: 2974 from stack: in
-- bmap block id: 4945
-- flags: 4000
-- background id: 2769
-- name: Exegesis Tools
----- HyperTalk script -----
on waitasec
  play "boing" f5q
  wait until the sound is "done"
end waitasec

on closeCard
  hide card field "owner"
end closeCard

on openCard
  freeMemory
end openCard


-- part 10 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=230 top=134 right=171 bottom=283
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Notes
----- HyperTalk script -----
on mouseUp
  go to card id 10234
end mouseUp




-- part 9 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=302 top=134 right=170 bottom=391
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Bible Compare
----- HyperTalk script -----
on mouseUp
  visual effect wipe left
  go to card id 3829
end mouseUp




-- part 1 (field)
-- low flags: 81
-- high flags: 0004
-- rect: left=176 top=117 right=199 bottom=373
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: about


-- part 2 (button)
-- low flags: 80
-- high flags: A003
-- rect: left=186 top=167 right=186 bottom=233
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: More
----- HyperTalk script -----
on mouseUp
  flash 5
  visual effect checkerboard slow
  show card field info
  show card button Thanks
  show card field "freemem"
  --This shows the amount of free Memory available in the application
  --heap.
  put the heapSpace div 1024 into word 4 of card field "freeMem"
  hide card field about
  hide card button more
  hide card button done
end mouseUp



-- part 11 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=205 top=215 right=291 bottom=287
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Questions
----- HyperTalk script -----
on mouseUp
  visual effect wipe left
  go to card id 10969
end mouseUp




-- part 18 (button)
-- low flags: 00
-- high flags: A004
-- rect: left=63 top=293 right=340 bottom=117
-- title width / last selected line: 0
-- icon id / first selected line: 21060 / 21060
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: ICONs Help
----- HyperTalk script -----
on mouseUp
  visual effect wipe right fast to gray
  visual effect wipe left fast
  go to card id 9078
end mouseUp




-- part 3 (button)
-- low flags: 80
-- high flags: A003
-- rect: left=314 top=169 right=188 bottom=361
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Done
----- HyperTalk script -----
on mouseUp
  hide button Done
  hide button More
  hide card field about
end mouseUp



-- part 20 (field)
-- low flags: 81
-- high flags: 2004
-- rect: left=114 top=212 right=260 bottom=286
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 256
-- line height: 12
-- part name: About Mem
----- HyperTalk script -----
on mouseUp
  set visible of card field "About Mem" to not the visible of card field "About Mem"
end mouseUp


-- part 14 (field)
-- low flags: 81
-- high flags: 0004
-- rect: left=143 top=315 right=331 bottom=369
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 4
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: owner


-- part 4 (field)
-- low flags: 81
-- high flags: 2004
-- rect: left=113 top=22 right=342 bottom=408
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: info


-- part 19 (field)
-- low flags: 81
-- high flags: 2000
-- rect: left=172 top=260 right=308 bottom=340
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: freeMem


-- part 5 (button)
-- low flags: 80
-- high flags: 8003
-- rect: left=191 top=299 right=325 bottom=323
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Thanks
----- HyperTalk script -----
on mouseUp
  set the highlight of card button "Thanks" to true
  waitasec
  set the highlight of card button "Thanks" to false
  play "boing" c5e
  set the highlight of card button "Thanks" to true
  waitasec
  set the highlight of card button "Thanks" to false
  play "boing" c5e
  set the highlight of card button "Thanks" to true
  play "Boing" "f5q f5s f5t f5t f5t f5t"
  wait for 60 ticks
  set the highlight of card button "Thanks" to false
  hide card button Thanks
  hide card field freemem
  hide card field info
end mouseUp



-- part 7 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=440 top=24 right=53 bottom=473
-- title width / last selected line: 0
-- icon id / first selected line: 26635 / 26635
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: How toÉ
----- HyperTalk script -----
on mouseUp
  push card
  go to card id 8834
end mouseUp




-- part 12 (button)
-- low flags: 00
-- high flags: 2004
-- rect: left=472 top=309 right=340 bottom=508
-- title width / last selected line: 0
-- icon id / first selected line: 1007 / 1007
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: ImageWriter
----- HyperTalk script -----
on mouseUp
  answer "Print the Stack ‘Tools for Exegesis’?" with "Cancel" or "Print Stack"
  if it is "Cancel" then
    exit mouseUp
  end if
  if it is "Print Stack" then
    doMenu "Print Stack..."
  end if
end mouseUp



-- part 13 (button)
-- low flags: 00
-- high flags: 2004
-- rect: left=428 top=308 right=342 bottom=468
-- title width / last selected line: 0
-- icon id / first selected line: 21982 / 21982
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Compact Stack
----- HyperTalk script -----
on mouseUp
  if the freesize of this stack >0 then
    put the userLevel into yourLevel --save the current userlevel
    if the userLevel < 4 then set userLevel to 4 -- "Authoring"
    if the userLevel < 4 then exit mouseUp
    domenu "compact stack"
    set userLevel to yourLevel --reset the userlevel how we found it
  end if
end mouseUp


-- part 16 (button)
-- low flags: 00
-- high flags: 2004
-- rect: left=4 top=293 right=336 bottom=53
-- title width / last selected line: 0
-- icon id / first selected line: 9543 / 9543
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Arrow Keys Text
----- HyperTalk script -----
on mouseUp
  set textArrows to true
  show card button "Arrow Keys Card"
  hide card button "Arrow Keys Text"
end mouseUp



-- part 17 (button)
-- low flags: 80
-- high flags: 2004
-- rect: left=4 top=293 right=336 bottom=53
-- title width / last selected line: 0
-- icon id / first selected line: 2518 / 2518
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Arrow Keys Card
----- HyperTalk script -----
on mouseUp
  set textArrows to false
  show card button "Arrow Keys Text"
  hide card button "Arrow Keys Card"
end mouseUp



-- part contents for card part 4
----- text -----
                        Version 3.0
     This Stack is provided FREE to all who actively search for a greater understanding of scripture through Exegesis.  Please send any comments to:

                     Mark A. Spaulding 
                   Yale Divinity School
              409 Prospect St. Box 297
                  New Haven, CT 06511
                                 or
                    GEnie, M-SPAULDING

Artwork by: Kristee Kreitman & Marge Boots.


-- part contents for card part 1
----- text -----

 By Mark A. Spaulding, 1988

-- part contents for card part 14
----- text -----
Tools for Exegesis by Mark Spaulding

-- part contents for card part 19
----- text -----
Available Memory =  383 K


















-- part contents for card part 20
----- text -----
This field shows the amount of space currently available on the application heap.